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ALL RIGHTS RESERVED. 
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;e OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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:e ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT OTHER * 
ie THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. * 
:« ® 
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-SBTTL PROGRAM DESCRIPTION 
FACILITY 

SYSTEM DUMP ANALYZER 

ABSTRACT 
THIS MODULE ACCEPTS COMMANDS FROM THE PRIMARY 
INPUT DEVICE AND PERFORMS THE SYNTAX PARSING. 
+He peers SOU Eee IS THEN CALLED TO EXECUTE 

ENVIRONMENT 
NATIVE MODE, USER MODE 

AUTHOR 
TIM HALVORSEN, JULY 1978 

MODIFIED BY 


V03-006 PRBO305 Paul Beck 10-Jan-1984 16:23 
Add support for EXAMINE/INSTRUCTION/NOSKIP 


V03-005 wMC0001 Wayne Cardoza 13-Jul-1983 
Add EVAL/CONDITION. 

v03-004 JLV0258 Jake VanNo 23-MAY-1983 
Replace $GET with call to tucs routine for keypad input. 


v03-003 TMKO001 Todd M. Katz 21-Mar-1983 : 
Implement tue Logg tn of interactive sessions. When a logging 
file has been defin 
and not to a Listing 
file before processin 


V03-002 CWH1002 CW Hobbs 22-Mar-1983 
ave pix width in a local so that we can extract the 
process index width from either an internal pid or an 
extended pid without even checking which we have. 


v03-001 JLV0221 Jake Ventioy 21-JAN-1983 
Add Examine/PSL Examime/CONDITION_VALUE and Examine/TIME. 
Repeat ‘‘escape 


g it. 


refreshes command Line. 


v007 MTROOO2 Mike Rhodes 27-Jul-1981 
Change SDA heip to not prompt. 


v006 MTROOO1 Mike Rhodes 19-Jun-1981 
Change all CMPW's referencing an MSG$_ symbol to CMPL's. 


Change default addressing mode to longword. 
1. Remove references to macro SSDAMSGDEF. 
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ed, and the output is going to the terminal 
tile, then log each command Line to the log 


reese 
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2. Modify routine GET_COMMANDS reference to condition 
handler qatry point (from CMD_HANDLER to HANDLER) for 
standardized error handling. 


3. Rewrite routine DISPLAY_HELP to use the Librarian 
routine LBRSOUTPUT_HELP. 


v005 TMHOOOS Tim Halvorsen 21-May-1981 
Remove READ/RELOCATE modifications in previous update. 
since the relocation must be done within ADD_SYMBOL 
based on whether the symbol already exists or not (we 
can't relocate the vaues for symbols which already exist, 
such as structure definitions). 


v004 TMHOO004 Tim Halvorsen gn ed 
Upcase all commands. Add ‘@' and SEARCH commands. 
Add READ/RELOCATE qualifier. Increase size of symbolize 
string buffer on EXAMINE command. 


TMHOOO03 Tim Halvorsen 07-Feb-1981 
Add EXAMINE/INSTRUCTION. 


v002 TMHOO02 Tim Halvorsen 19-Dec-1980 
Fix current process context so that it remembers /SYSTEM 
from one SHOW PROCESS to another. 


v001 TMHOO01 Tim Halvorsen Lary hy 
Use gereral addressing to reference LIBSSIGNAL 
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v04=000 STORAGE DEFINITIONS ooo 188s OS:8Fide LeM Mes Maer NOt OO age 3, voi 
1 «SBTTL STORAGE DEFINITIONS 
133 STORAGE DEFINITIONS 
14) ° 
0000 148 .PSECT SDADATA,NOEXE,WRT 
O000000E BY Vee HELP_FLAGS: «LONG HLPSM chou! ;Library search & Prompt options 
4 3% LPSM~SYSTEM 
45 48 24 53 59 53 0000000¢ "01069000" if 123 HELP_LIBRARY: .ASCID PSYSSRELP: SDA.HLB/ 
1c 6% 
O1C 12 TPARSE_BLOCK: 
00000008 001C 150 -LONG  TPASK_COUNTO : LONGWORD IN BLOCK 
90000008 9026 151 [LONG TPASM™ABBREV t ABBREVIATIONS ALLOWED 
0000004 o043 138 “BLKL TPASK~COUNTO=1 + REMAINDER OF BLOCK 
040 154 STACK USED FOR EVALUATION OF EXPRESSIONS 
9000010¢" 9040 135 Esp: -LONG XPR_STACK ; STACK POINTER 
ora¢ 137 EXPR_STACK: ; STARTING STACK POINTER 
b10¢ 159 INPUT_RAB:: 
00000000 010¢ 160 . LONG : ADDRESS, OF CURRENT INPUT RAB 
6119 162 : (MAY BE CHANGED TO INDIRECT RAB) 
0110 164 OPTIONS:: 
00000114 0110 165 -BLKL 1 ; OPTIONS FOR COMMAND 
0114 167 RELOCATE_BASE:: 
00000118 O114 168 “BLKL 1 ; READ/RELOCATE BASE ADDRESS 
o118 190 PROC_NAME : 
00000120 o118 171 "BLKQ ; PROCESS NAME 
61 0 18 SYMBOL _NAME: : 
00000128 1 12 .BLKQ 1 : SYMBOL NAME 
$i 17% FILE_DESC:: 
00000150 7 -BLKQ 1 : FILE NAME DESCRIPTOR 
1 155 PROC_INDEX: : 
FFFFFFFF 0 0 -LONG -1 ; PROCESS INDEX 
134 «1 é PIX_WIDTH:: ; USEFUL WIDTH OF PROCESS INDEX 
00000138 4 3 .BLKL 1 t WE CAN INTERCHANGE IPIDS AND épibs 
wa ; 185 PROC_PID:: 
060001 3¢ : : -BLKL, 1 :! PROCESS PID 
13¢ (1 ; CURRENT_P1D: 
00000140 13 -BLKL 1 : PID OF PROCESS RUNNING DURING CRASH 
14 191 ADDRESS: : 
00000000 0140 192 ;LONG 0 : CURRENT MEMORY ADDRESS 
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your STORAGE DEF INIT 1 ONS Seen 13be Bbi8aica PARAMOS Macro VOe~0O age 8; 
126 19% DATALEN 
00000000 144 i ",LONG 0 : LENGTH OF PREVIOUS DATA ITEM 
14 13 SYMBOL _DESC:: 
00000150 1 138 “ .BLKQ 1 3; SYMBOL NAME TO BE DEFINED 
1 0 LOG_BUFFER 
en 2190088 ' 1 LOG “BUFFER, LENGTH = 85, 
000001A 15 “BLKB LOG_BUFFER_LENGTH-5 
0000 00 4 .PSECT COMMANDS,EXE,NOWRT,LONG 
0 ; 
i : READ-ONLY STORAGE DEFINITIONS 
00 10° 
6000 11 MACRO NORMAL FIRST,LAST ; MACRO TO DEFINE “NORMAL INSTRUCTIONS 
0000 Ig . .=NORMAL_INSTRS¢#F IRST 
9000 13 TIF BLA : IF LAST UNSPECIFIED, LOOP ONCE 
0000 215 WIFF 
9000 18 $§ = LAST#1- FIRST 
909 18 "REPT $$ 
a a 
0000 1 ENDM 
0000 5 NORMAL _INSTRS > BYTEMASK oF REASONABLE INSTRUCT LONS 
0000 4 : (ITS ONLY A BYTEMASK CAUSE I DON 
0000 é REPT 2546/8 3; KNOW HOW TO CONSTRUCT THE ERASED. 
000 “QUAD «OO : PRESET ALL TO "UNREASONABLE" 
00000000 00000000 00 ‘ ENDR 
W8 a, : ve can 
/ 006 é NORMAL 18.37 + PROBER THRU BLEQU 
3 NORMAL 30,31 3 BGEQU THRU BLSS 
4 NORMAL 40-41 : Raves THRU cnecs 
A 5 NORMAL 44.45 : MOVCS THRU CMPC 
5 6 NORMAL 48.50 : BSBW THRU CVTWL 
NORMAL 5 > LOCC 
; a a ee 
3 40 NORMAL 124,139 : CLRO THRU BICB3 
85 $43 NORMAL 4437186 OTB THRY ROTE 
So Bae ig Ue 
& 45 NORMAL 186.1 ; : PUSHR THRU POPR 
C 46 NORMAL 192, : ADDL2 THRU MNEGL 
{ e' NORMAL *21 : MOVL THRU DECL 
D8 rt: NORMAL } e3 ; MTPR THRU BLBC 
EA 24 NORMAL 236.26 > CMPV THRU INSV 


voo~000° 
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NORMAL 24 +343 
NORMAL 2 e951 
NORMAL 

RESTORE 


«DEFAULT DISPLACEMENT ,LONG 
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; AOBLSS THRU SOBGTR 
; CALLG THRU CALLS 
; BUGCHECK 
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«SBTTL GET COMMANDS == ACCEPT AND EXECUTE COMMANDS 


—~ 


GET_ COMMANDS 


THIS ROUTINE A ¢. NEXT COMMAND FROM THE PRIMARY 


OMMAND AND EXECUTES IT. 


EPTS T 
ES THE 


INPUT FILE, PARS S 
INPUTS: 

NONE 
OUTPUTS: 


RO = TRUE IF COMMAND EXECUTED, FALSE IF EMPTY LINE 


WMVOF £& FG NNO CVV VNNOOCOCOCOCOOOCOOCOOOOOOOOOOOOO 


a 
; 
193 30 
190 568 
1 64 
190 $88 
83 
193 343 
1 
190 598 
rh .ENABL LSB 
1 ud: PROMPT: 
99 005 01 77 PROMPT_LEN = 5 
20 3E 41 44 53 OA 00° 01 78 SASCIC <10>"SDA> ° 
- $1 79 
10 80 GET_COMMANDS:: 
000C 8 1 -WORD “M<R2,R3> 
6D 00000000°EF DE 010 j MOVAL HANDLER, (FP) ; SETUP CONDITION HANDLER 
53 QOO0001C'EF 9€ 011 nA TPARSE_BLOCK,R : SET ADDRESS OF TPARSE BLOCK 
11 85 ; WARNING == THE “fOSKER? KNOWS aBouT THE FOLLOWING 2 LINES 
00000110°EF oD 011 8 PUSHL OPTION ; SAVE OPTIONS LONGWORD 
7E Q0000000'EF 7D 1 f MOVQ  § SUB_HEADING,-(SP) : SAVE CURRENT HEADING 
Q0000000°EF 04 01 9 CLRL == LINE_COUNT : 1ST PAGE EJECT W/O PROMPT 
0000010C "EF 08 } 3 ret NPUT_RAB : indirect? 
90000000 EF 16 01 3 JSB raneur : Get a Line of input 
50 00000000" sr p} : 93 CHPL ant EOF .RO : CHECK TF END OF ILE 
141 95 sie SIGNAL 0,EOF : SIGNAL END OF FILE 
133 39 "SIGNAL : CHECK FOR OTHER ERRORS 
7 11 155 9 BRB 45$ 
18] 9 ; IF THE ESCAPE KEY WAS TYPED, AND LINE EDITING IS OFF, 
1 : REPEAT THE LAST COMMAND. 
1E 00000000 EF BF E} 1 § , BBC ait R TRA bv -DEVCHAR,20$ ; BR IF NOT TERMINAL 
1 OrEE 178 5 be gbebng ; BR IF EDITING 
1B 81 17 6 CMP My SL_STV(R2) .#°X1B t IS TERMINATOR ESCAPE KEY? 
Ce 2 0170 BNEQ > BRAN 
00000000°EF 63 FA OI7F CALLG (R3),REPEAT_COMMAND + RESTORE PREV. COMMAND 
OAAE 30 1 BSB HO : ECHO IF SCOPE 
6A BRB : AND EXECUTE IT 
1 2 


Sm oo 


ae 


; Use indirect file 
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188 


~m 
Oo 
A ad 


5 000010C "EF 0 MOVL INPUT_RAB,R2 : Set rab address 
24 n 0009000 FF 3 MOVAB INPUT"BUFFER,RABSL_UBF(RD) 
OA 000'SF 8B OV #INPUT BUF _LEN, RABSW_USZ(R2) 
00090000 EF 22 A280 MOVW RABSU_RSZ(R2),, INPUT_LEN : Set Length 
50 000000 “8 D} cH #RNSS EOF LR : CHECK IF END OF FILE 
nat SIGNAL 0,E0F + SIGNAL END OF FILE 
"SIGNAL RMS, (R2) ; CHECK FOR OTHER ERRORS 
; PARSE THE COMMAND 
OC A3 OO0000000'EF 9€ 45$:  MOVAB _—sINPUT_BUFFER, TPASL_STRINGPTR(R3) 
08 Ag 000 8090" F ¢ MOVZWL JNPUT-LEN, TPASL_STRINGCNT (RS) 
5 BNEQ 0$ ; BRANCH IF NOT EMPTY 
0 Dé CLRL = RO : INDICATE EMPTY LINE 
OOCr 631 oh BRW 908 : EXIT 
00000000' 5 eee QUTPUT_FILE ; SKIP LOGGING IF RMS IS OUTPUTTING 
BNEQ $ : TO LISTING FILE OR LOGGING FILE 
00000000' IST L0G_FILE : HAS NOT BEEN DEFINED 


PUSHR #*M<R2,R3,R4,R5,R6> ; SAVE SOME REGISTERS 

MOVAB LOGRAB : LOGGING FILE RAB 

MOVAB LOG BUFFER,RABSL_RBF(R6); COMMAND INPUT LINE LOGGING BUFFER 

ADDWS #PROMPT_LEN,- ; LENGTH OF LOGGING 1/0 IS SIZE OF 
TPASL_STRINGCNT(R3),- ; PROMPT PLUS SIZE OF COMMAND INPUT LINE 
RABSW-RSZ (RO) 


MOVC3 TPASL’STRINGCNT(R3).-  ; APPEND THE COMMAND INPUT LINE AFTER 
@TPASC STRINGPTR(RS ; THE PROMPT IN THE LOGGING BUFFER 


S,- 
LOG_BUFFER+PROMPT_LEN 
$PUT (R67 ; LOG THE COMMAND INPUT LINE 
SIGNAL RMS, (R6) ; SIGNAL ANY ERRORS 
POPR #*A<R2,R3,R4,R5,R6> ; RESTORE SAVE REGISTERS 
; ADDRESS OF INPUT STRING DESCRIPTOR 
OVERWR RESULT 


E 

4 

E 

4 

o07c 8 

56 4a 6 SB 
28 AG 00001 “| 
A 

A 

A 

B 

E 


55$: PUSHAB TEASL STRINGENT (RS) 
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6 DD PUSHL > OVERWRITE STRING WITH 
00000000 ' GF FB CALLS #2,G*STRSUPCASE : UPCASE COMMAND LINE 
110°EF D4 CLAL © OPTIONS ; INITIALIZE OPTIONS LONGWORD 
114°EF D4 CLRL = RELOCATE_BASE ; INITIAL — RELOCATION BASE 
00000040" EF 1OC'EF DE MOVAL EXPR STACK,ESP : INITIALIZE EXPRESSION STACK 
AS 7D MOVG TPASC_STRINGCNT(R3),-(SP) ; SAVE DESCRIPTOR OF COMMAND | 
‘ER ODF $ PUSHAL L*“SDA"KEY ; KEY TABLE ADDRESS | 
‘EF OF PUSHAL L“SDA_STATE > STATE TABLE ADDRESS | 
; DD 027 PUSHL : TPARSE BLOCK 
GF FB 007 CALLS #3,G*LIBSTPARSE ; PARSE AND EXECUTE THE COMMAND 
"ER 4 CLRL «HEADING ROUTINE * CLEAR HEADING ROUTINE ADDRESS | 
08 A ; p mova (SP) TPASL_STRINGCNT(R3) ; RESTORE COMMAND DESCRIPTOR 
2D £ BLBS ~=s_-RO, B0$ ; BRANCH IF NO ERROR 


SIGNAL SYNTAX ERROR FROM PARSE 
38 r EXTZV #16,#16,R0,R1 


s & 
own MOONO 
on WM wre 
> oo 
unm MWWAWATAH POT 
2 2 y bar pt 4 -9-9 WO-WoO 
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CHECK FACILITY CODE 


50 ooesters BF 
10 A3 
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8 
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C4 
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#SHRS_SYNTAX! <3a1 
TPASL. TOKENCNT (R3 


(SP) +, SUB_HEADING 
OPTIONS 
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; BRANCH IF NOT SDA ERROR MSG 
SIGNAL ERROR CONDITION 


3 CLI-W-SYNTAX MESSAGE 
; DESCRIPTOR of BAD TOKEN 


SIGNAL WITH 1 FAO ARG. 


; COMMAND EXECUTED 


RESTORE SUB_HEADING 
RESTORE OPTIONS WORD 


cg 
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CT_COMMAND =-INDIRECT FILE PROCESS 5-SEP=1984 03:31: SDA. SRCJCOMMANDS.MAR; 1 ( 
p : .SBTTL INDIRECT_COMMAND --INDIRECT FILE PROCESSING 
p 8 ; INDIRECT_COMMAND 
p 30 : INPUTS: 
p 36 ; AP = ADDRESS OF TPARSE CONTROL BLOCK 
p 34 : OUTPUTS: 
D %6 : ACTION ROUTINE TO OPEN AN INDIRECT COMMAND FILE 
p 3 ; AND PROCESS THE COMMANDS, 
p 399 ; .ENTRY INDIRECT_COMMAND, “M<R2, R3, R4, R5> 
53 09 O'EF D5 «401 MOVAB INDRAB, R3 : R3 = ADDRESS OF RAB 
C AS oc 4 2 MOVL RABSL_FAB(R3).R2 : R2 = ADDRESS OF FAB 
53 000001 cer EO 4 CMPL NPUT-RAB, R3 > ONLY ONE LEVEL OF INDIRECTION 
4 E? 4 4 BEQL 0 : BR IF RECURSIVE AND EXIT 
10 A £9 406 CVTWB = TPASL_TOKENCNT(AP) ,- 
34 A ler FABSB-FNS(R2) ; SET FILE NAME LENGTH 
14 AC EE 408 MOVL = TPASLTOKENPTR(AP) , = 
2C A2 F 409 FABSL~FNA(R2) ; SET FILE NAME ADDRESS 
FR ret SOPEN (R2) ; ATTEMPT TO OPEN THE FILE 
45 FC 41g BLBS 0$ + BRANCH IF OK 
CA gee: PUSHL FABSL_FNA(R2) + CREATE DESCRIPTOR OF FILE NAME 
7E A 414 MOVZBL FABSB-FNS(R2), =(SP) 
7E 5 415 va TSP) ; RMS ERROR CODES 
416 INSV #STS$K_WARNING,- : CHANGE SEVERITY TO WARNING 
08 41 #STSSV~SEVERITY,- 
C 418 #STS$S~SEVERITY.- 
6E Ob 41 SP) 
08 AE F 4 : PUSHAB &(SP) ; ADDRESS OF FILE NAME DESCRIPTOR 
1 m4 PUSHL #1 t NUMBER OF FAO ARG 
00031098 br 13 4 3 PUSHL #SHR$_OPENIN!<3a16> : "ERROR OPENING INPUT FILE !AS"* 
00000000’ GF 19 4 CALLS #5, G®LIBSSIGNAL + OUTPUT ERROR MESSAGE 
00 4 4 10$: BRW 506 : EXIT WITH SUCCESS 
4 : 20$:  SCONNECT (R3) ; CONNECT FOR RECORD ACCESS 
¢ 4 SIGNAL RMS, (R3) : REPORT ANY ERRORS 
00000090"EF 6C 4 § CALLG (AP),REPEAT_COMMAND ; GET DESCRIPTOR OF @ COMMAND 
E 08 aC 4 0 SUBL TRASL STRINGCNT (AP) , SP : ALLOCATE BUFFER TO HOLD @ COMMAND 
O08 AE OC BC O08 AC 4 : nove TRASL STRINGCNT (AP) ,@TPASL_STRINGPTR(AP) ,8(SP) : PUSH ONTO STACK 
08 AC 4 PUSHL TPASL _STRINGCNT (AP) > SAVE LENGTH OF @ COMMAND STRING 
90001 Cer 7 435 PUSHL INPUT"RAB : SAVE RAB ACROSS PROCEDURE 
0000010C'EF 53 D é sae MOVL R3, IRPUT_RAB : SETUP INDIRECT FILES RAB AS INPUT 
"EF 4 : "  CLRL —s LIINE_ COUNT ; AVOID END OF PAGE PROMPTS 
F ff 4 CALLS . GET_COMMANDS ; ACCEPT AND EXECUTE COMMANDS 
noooh bah: F 440 CMPL #nsG$_EOF > CHECK IF END OF FILE 
‘ : 44 BEQL + BRANCH IF SO 
00000000°8F § 78 42 CAPL , #MSGS_EXITCMD : DID WE JUST EXIT A LEVEL? 


Mle TMDIRECT Cm etal “SEP-1984 3: $f: 3 AX/VMS Macro V04-00 Page i, 


1 
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OMMA 
tT RECT SDA.SRCICOMMANDS .MAR; 1 
f? Je 7F 443 BNEQ a8 ; BRANCH IF wer 
444 F ¢ ore CLRQ EADING ; CLEAR CURRENT HEADING 
‘EF =D4 4a§ eta HEADING, ROUTINE ; CLEAR HEADING pt ADDRESS 
D +23 SKI ; ERASE PREVIOUS J 
8 11 4 a 408 BRB 
seeaadd BED 30 rr POPL ee ; RESTORE RAB ADDRESS 
AC BED H $29 POPL Hh ASL a ; RESTORE LENGTH OF @ STRING 
of ac 65E) OD A 451 MOVL Vs AP) ; SET ADDRESS OF COPY OF STRING 
‘er Gt FA AS 4 § ALLG ; SAVE AS PREVIOUS COMMAND 
A & CLOSE ; CLOSE THE COMMAND FILE 
: ? : 50$ SIGNAL RAS, : ; REPORT ANY ERRORS 
50. (01 0 (7 4 § MOVL #1, RO ; RETURN SUCCESS 
4 CA 4 RET 
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~SBTTL EXIT COMMAND == PROCESS EXIT COMMAND 


: EX1T_COMMAND 

: EXIT COMMAND ACTION ROUTINE 
: OUTPUTS: 

: END OF FILE IS SIGNALED 

E 


X1T_COMMAND: : 
.WORD 0 


SIGNAL 0,EOF ; SIGNAL END OF FILE 


SIN NI NNIAO AAP OOO OAOOM 
MEW OO ODNOUS WOO 


Fala ihn iia lake tah tak tak ta telat a 


CUTE 
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ND EXE 

SYMBOL 

De 477 .SBTTL DEFINE_SYMBOL == DEFINE LOCAL SYMBOL 

DF t38 ; 

DF 4 6 ; DEF INE_SYMBOL 

DF OG ¢ : THIS ROUTINE ADD S A SY MBOL | To THE LOCAL SYMBOL 

DF 4 33 TABLE WITH AN ASSOCIATED V 

DF 4 5 : INPUTS: 

DF 4 5 : AP = ADDRESS OF TPARSE PARAMETER BLOCK 

DF 4 : : SYMBOL DESC = DESCRIPTOR OF SYMBOL 

DF 4 2 TPASL_RUMBER(AP) = VALUE TO BE ASSIGNED TO SYMBOL 

DF 491 :e=- 

DF 49¢ 

DF 493 DEFINE_SYMBOL:: 

0000 DF 494 «WORD 0 
1¢ AC pp E1 496 PUSHL TPASL_NUMBER(AP) : VALUE OF SYMBOL 

7E QO000148'EF 7D O3E4 49 MOVQ  § SYMBOC_DESC,-(SP) : SYMBOL DESCRIPTOR 
00000000'EF 03 FB 368 498 CALLS #3, ADD~SYMBOL + ADD TO SYMBOL TABLE 
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F .SBTTL SHOW SYMBOL -- DISPLAY SYMBOL VALUE 
F : 
F 4 ; SHOW_ SYMBOL 
F $ ; THIS ROUTINE DISPLAYS THE VALUE OF A SPECIFIED SYMBOL 
F ; AND THE CONTENTS OF THAT MEMORY LOCATION IF POSSIBLE. 
F 09 : INPUTS: 
F 1 : SYMBOL_NAME = DESCRIPTOR OF SYMBOL 
6 F 18 : OUTPUTS: 
O3F 19 : NONE 
iain ie 
03 319 LENABL LSB 
O3F3 521 SHOW_SYMBOL:: 
0004 O3F ; g .WORD “M<R2> 
52 00000120°EF 96 gare 504 MOVAB SYMBOL_NAME,R2 ; ADDRESS OF SYMBOL NAME DESC. 
OOOOOFFF BF  00000110'EF D1 O5F¢ ; 3 cHPL OPTIONS, ,MOPTSM_ALL CHECK | IF WANTS ALL SYMBOLS 
$8 DD 0409 527 PUSHL 2 : DESCRIPTOR 
00000000°EF | gi FB aire Hh cA Ls #1, SYMBOL_ VALUE GET, SYMBOL VALUE 
1 041 MP R1.#*XC0000000 ; CHECK I INTERNAL SYMBOL 
se ee od ee 
04 § 338 TRYMEM (R14) : GET CONTENTS vor LOCATION 
1850 €9 c3e 34 LBC. — RO, 208 : IF NOT AN ADD 
51 DD «0431 «= 535 PUSHL 1 : CONTENTS OF LOCATION 
00000140°EF DD 0433 536 PUSHL ADDRESS + SYMBOL VALU 
52. DD «(0439)=— 537 PUSHL : DESCRIPTOR ADDRESS 
458 38 PRINT 3,<!AS = !XL:  !XL> 
” rr 2 208: ep 
140°EF 449 541 "- PUSHL ~=—s ADDRESS ; SYMBOL VALUE 
engin SS BD 44F 43 PUSHL : DESCRIPYOR ADDRESS 
451 54 PRINT 2,<!AS = !XL> 
0% Beek Bes sos: FET 
52. DD (045F 46 " - PUSHL =—sR2 : DESCRIPTOR ADDRESS 
461 4 SIGNAL 1,BADSYM t UNKNOWN SYMBOL 
-“ tb rt: 708: =e 
00000000°EF 62 FA 0474 550  — CALLG (P2),PRINT_SYMBOLS : PRINT ALL SYMBOLS 
04 478 2] RET 
47¢ § .DSABL LSB 
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«SBTTL SHOW_EXPR == SHOW RESULT OF EVALUATE COMMAND 


RESULT IS DISPLAYED. 


SHOW_EXPR 

; DISPLAY THE RESULT OF AN EVALUATE COMMAND. 
INPUTS: 

; TPASL_NUMBER(AP) = RESULT OF EXPRESSION 

; OUTPUTS: 


COOCOCCCOOCOOOCOCOCOCOOOOOCOOOOOOOOO 


Po ea ae eee 
000 VV cad 
NNAODAMMAOOOOOOOOOOOAAAOOOOOO BW 


300 O 00909 09 09 0909 09 09 09 09 SININI NINN NINN NIA AAA OAAAOAOUIUINIR 
WR SO OD NA UE WIN 0 OONA UNE IN OC OONOU EW OWOONOu =F 


SHOW_ senha 
0000 — ORD Use 
11 00000110'EF 08 EO : BBS OPT$V_COND 74 | aaa 10$ ; IS IT /COND 
1€ AC DD PUSHL TPASL. Rum BER(A 3 Pf RESULT OF EXPRESSION 
5 PRINT 1,<Hex = TL hesteak i -!SL 
04 5 
3 10$: ALLOC 110,R2 ; GET A BUFFER 
0Q4A9 5 SGETMSG_S - GET THE MESSAGE 
4A9 5 “MSGID = Ten NUMBER (AP) . = 
4A9 5 MSGLEN 
04A9 5 BUFADR = (R2) 
10 50 E9 04688 5 BLBC RO,20$ 
52 OD 048 5 PUSHL 

04C 5 PRINT 1,<!AS> 

04 04CD 2 RET 
04CE 

50 DD O4CE 590 208: PUSHL RO ; ERROR 
00000000'GF 01 FB O4D0 5 CALLS #1,G*LIBSSIGNAL 

04 0407 5 E 

0408 5 -DSABL LSB 


| 
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4D 95 .SBTTL EXAM_MEMORY == EXAMINE MEMORY LOCATIONS 
tba fgg i 
4d§ 398 ; EXAM_MEMORY 
4D 60 ; DISPLAY THE CONTENTS OF A SPECIFIED RANGE OF MEMORY 
4D 60¢ 3 INPUTS: 
4p é04 : EXPRESSION STACK CONTAINS ARGUMENTS OF RANGE 
4D : OUTPUTS: 
ht ee ae 
04D O88 3 NONE 
04D 609 ; 
it a 
0¢b8 61g -ENABL LSB 
04D8 614 EXAM_MEMORY:: 
003¢ 0408 19 .WORD “M<R2,83,R4,R5> 
52 O0000110°EF DO Sern ete MOVL. OPTIONS, R2 
50 52 000003F8 8F CB Q4e! 618 BICL3 HOPTSH RANGE |~ 
04E9 620 OPT$M~INST!= 
04E9 621 OPTSM-NOSKIP! = 
0469 6 é PTSM~PSL!- 
04E9 6 OPTS$M~COND!- 
04E9 624 OPTSM-TIME.R2,RO ; CHECK IF ANY OPTIONS SPECIFIED 
+ O4E9 625 BEQL $ : BRANCH IF NOT 
cooooGhnge $8 fh REP Sh REL, farrnysrgghzos— CSER gro, secitie 
07 52 01 €1 O4F6 628 108: BBC #OPT$V_P1,R2,20$ : CHECK IF /P1 SPECIFIED 
00000000'EF 00 FB O4FA 629 CALLS #0,SHOO_P : SHOW P1 SPAC 
07 52 02 €1 0501 630 208: BBC #OPTSV_SYSTEM,R2,30$ |; CHECK IF /SYSTEM SPECIFIED 
00000000'EF 00 FB 0505 631 CALLS #0,SHOQ_SYSTEM : SHOW SYSTEM SPACE 
04 05 ¢ 6 : 30$: RET 
030p 634 40$: 
53  00000040'EF 00 50D ©6635 MOVL ESP, R3 ; EXPRESSION STACK POINTER 
2 3 03 £0 0514 6 6 BBS WOPTSV_RANGE,R2,50$ * : BRANCH IF RANGE SPECIFIED 
obpottoc ee £0 518 : BBS #OPTSV-LENGTH.R2,55S : BRANCH IF LENGTH SPECIFIED 
% 5 Bi é 5 6 § CMPL =e R23, RO : : CHECK IF STACK EMPTY 
A 13 0526 640 BEQLU 6 f : IF NO ARGS, USE NEXT LONGWORD 
C0000000 8F 63 D1 0528 641 CMPL (R3),#*XC0000000 : CHECK IF INTERNAL REGISTER 
SF 1 5 OF 64g BGEQU ; DO NOT SET ADDRESS IF SO 
00000140" EF 63 D0 0531 «= 64 MOVL  (R3), ADDRESS : SET NEW CURRENT’ ADDRESS 
6 11 ; : 644 ae BRB 70$ 
re D4 A 646 "  CLRL. = =CSP) : DISABLE PAGING 
7E 63 O04 AS C3 053C 64 SUBL3 4(R3),(R3),-(SP) : LENGTH - 1 OF RANGE 
6E D6 54 648 INCL (SP) : LENGTH TO DUMP 
06 1 345 64 eth BRB 58$ 
7E D4 348 839 "  CLRL = CSP) : DISABLE PAGING 
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04 A3 
QOO00140'EF  6E 
steed 4 


0000000 
55 0000000 


03 00000110'EF 


00000144 'EF 


07 00000110°EF 


00000144 'EF 


000001 
000001 


00000000’ EF 


oo 


cO 
10 


E 
E 
0 
D 
0 
0 
0 
5 
8 
a 
4 
5 
0 
5 
5 
6 
0 
6 
1 
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758 USD AVSRCICOMMANDS MAR; 1 db) 


LENGTH TO DUMP 
STARTING ADDRESS 
SET NEW ‘‘CURRENT'’ ADDRESS 


AVOID SUBHEADNG IF NOT A FILE 
BRANCH IF NOT 


BRANCH IF RANGE OF INSTRUCTIONS 


; DUMP MEMORY 


GO SHOW RANGE OF DATA ITEMS 


; SET ‘'."' TO NEXT DATA SEGMENT 


INHIBIT PAGE EJECTS 

ADDRESS OF INSTRUCTION/DATA BUFFER 
ALLOCATE SYMBOLIZE OUTPUT BUFFER 
CONTINUE IF NOT INSTRUCTION 
BRANCH IF INSTRUCTION MODE 

SET LENGTH OF DATA SEGMENT 
BRANCH IF NOT /TIME 

SET LENGTH OF TIME QUADWORD 

GET DATA 

IF NOT AVAILABLE 
$M_COND,- 


TIME, COND OR PSL? 


: BRANCH IF EITHER 
: ADDRESS OF COPY OF DATA ITEM 
: LENGTH OF DATA ITEM 


IF NOT TRANS 


; H ANSLATED 
; ADDRESS OF STRING DESCRIPTOR 


ADDRESS 
; NOT IN PHYSICAL MEMORY 


PUSHL  (R3) 

38 58$: 
654 PUSHL  4(R3) 
655 MOVL (SP), ADDRESS 
636 TSTL TPUT_FILE 
6 BEQL $ 
68 SUBHD <MEMORY DUMP> 
660 59$: BBS wopTsy INST, OPTIONS, 57$ ; 
661 CALLS #3,DUMP 
66¢ RET 
66 57$:  BRW 150$ 
$68 

Hy - SK NEX 
66 NO ADDRESS SPECIFIED = SKIP TO NEXT DATA ITEM 
668 60$:  MOVAL ADDRESS,R3 
669 ADDL DATALEN, (R3) 
671 : DISPLAY DATA AT "ADDRESS". 
or 70$: CLRL. _— LINE_COUNT 
674 MOVAB BUFFER,RS : 
675 ALLOC 110,R : 
676 BBC #OPTSV_INST,OPTIONS,71$ : 
677 BRW 1208 : 
678 71$:  MOVL #4,DATALEN : 
679 BBC #OPTSV_TIME,OPTIONS,72$ : 
680 MOVL a par Len ° 
681 72S: TRYMEM @(R3),(R5),DATALEN 
68¢ BLBC. OR 
68 BITL  #OPT$M_TIME!OPTSM_PSL!OP 
684 OPTIONS 
685 BNEQ 9 
686 PUSHL 
687 PUSHL #4 
688 PUSHL 1 
689 PUSHL  R2 
690 PUSHL  (R3) 
691 CALLS #2,SYMBOLIZE 
69¢ STL (RI) 
69 EQL 4=s-«BOS 
694 PUSHL 1 
695 PRINT 4,<!AS: !XL “AFD 
696 RET 
697 80S: 
698 PUSHL  (R3) 
$9 PRINT 4,<'XL: 'XL "LAF" 
, 0 RET 
7 ‘ 90$:  PUSHL (R3) 
7 SIGNAL 1,NOTINPHYS 
g 4 RET 
, 6 > EXAMINE /PSL or EXAMINE/TIME or EXAMIME/CONDITION_VALUE 
708 * 
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youe000 green obe bsiSiita Y COMM test 


EXAM_MEMORY == EXAMINE MEMORY LOCATIONS 5- <SDA.SRCJCOMMANDS.MAR; 1 (10) 
C 709 928: 
34 90000110" EF 06 E gee 98 BBS #OPTSV_PSL,OPTIONS,96$ ; BRANCH IF FXAM/PSL 
9 0110°EF E 440«CO711 BBS #OPTSV-COND ,OPTIONS,98$ ; BRANCH IF éXAM/CONDITION_VALUE 
a Fig MSCTING AAUEN alt 
= a” 
64C 714 TIMADR = (Rg) : FORMA, TIME 
28 50 «£8 er £15 on BLBS RO,110$ > BRANH IF SUCCESS 
50 «pp «(06 oS PUSHL RO : ERROR 
00000000'GF 01 FB 66 £18 CALLS #1,G*LIBSSIGNAL + SIGNAL 
720 96$: 
52 DD see 7 ° PUSHL R2 : BUFFER ADDRESS 
65 DD 066A 7 : PUSHL  (R5) : PSL ADDRESS 
00000000 EF 02 Fe 66 f ; CALLS #2 ,FORMAT PSL : FORMAT IT 
67 725 98$: ; 
067 7 3 SGETMSG_S - 
675 7 MSGID = (RS) = ; MESSAGE CODE 
0675 4 : MSGLEN = (Re) - + LENGTH 
675 7 BUF ADR = (R2) : ADDRESS 
D5 50 £9 0686 730 BLBC ~=—_—«aRO, 95$ 
689 731 1108: 
52 DD 0689 7 ; PUSHL R2 
0688 ? PRINT 1,<!AS> 
8: Pagers 
$889 236 
0393 4 : 3 EXAMINE/ INSTRUCTION 
699 739° 
0699 740 120$:  TRYMEM @(R3),(R5).#64 : GET MAXIMUM LENGTH OF INSTRUCTION 
03 50 £8 741 BLBS RO, 130$ : OK 
FF76 31 AF 14g BRW 90$ : IF NOT AVAILABLE 
743 130$: ALLOC 128,R4 : BUFFER FOR INSTRUCTION TEXT 
55 DD C3 744 PUSHL R : ADDRESS OF INSTRUCTION STREAM 
000007A1 "EF 9F 06C5 745 PUSHAB INSTR_VALUE : ADDRESS OF SYMBOLIZE ROUTINE 
4 dd 06¢B 246 PUSHL RG : ADDRESS TO RETURN LENGTH 
DD 06CD 74 USHL R4 + ADDRESS OF OUTPUT BUFFER DESCRIPTOR 
OC AE DF O6CF 748 PUSHAL 12(SP) + ADDRESS OF INSTRUCTION STREAM POINTER 
00000000 ' GF F bg 74 ALLS #4 ,G°L 1BS1NS_DECODE + DECODE INSTRUCTION 
39 Q E do «7 0 LBC RO. 19 $ : AND SI ANY ERRORS 
00000144°EF  8€E C ae F SUBL3 R5.(SP)+,DATALEN + SAVE LENGTH OF INSTRUCTION 
DD 06E4 , ‘ PUSHL R4 : PUSH ADDRESS OF INSTRUCTION TEXT 
é DD E6 SHL = R2 : ADDRESS OF RESULT BUFFER 
00000000" EF 8 Pe EA , $ cheCS $37) vmgou.12€ : TRANSLATE TO evabOL so FSET 
o¢ D ) Ses 6 STL (RA) : CHECK LENGTH OF RESULT STRING 
10 1 Fs? EQL 4 «=-_:«180$ : BRANCH IF NOT TRANSLATED | 
51 DoD 06F5 7 : PUSHL 1 t ADDRESS OF STRING DESCRIPTOR 
as Fy , PRINT 2,<!AS: !AS> 
63 OD 07 5 7 ? 180$:  PUSHL  (R3) 
a , q 7 : PRINT 2,<!KL: !AS> 
213 ; 4 190$: SIGNAL 0,NOINSTRAN ; SIGNAL ANY ERRORS FROM DECODE 
04 0727 765 RET 
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. "000° EXAR MEMORY ERARINE MEMORY LOCATIONS oe 83:99:33 SDA. SRCJCOMMANDS .MAR; 1 (99) 
7 
Fee O88 
f ‘3 ; RANGE OF INSTRUCTIONS TO BE DUMPED 
7 ? - 
: T NGTH,OPTIONS ; INDICATE ONLY ADDRESS 
cooooocaree anpobioc's® Ge Sree ire ROvAg FNERLSTACRVEgP  a"POP ALE AncUREMt Off STACK 
se G00n46 ee ba ; , a CCRE siraen ¢ + DO NOT SKIP FIRST INSTRUCTION 
53 OO0140'EF DE 145 He MOVAL ADDRESS,R3 
: HE FIRST INSTRUCTION WHICH MAKES SENSE IN THE RANGE. 
ree uF ; tis ts DON Oe ey TeHPT ine 1h INTERPRET N INSTRUCTIONS IN A ROW WHICH 
SE acy A ae a RR stl 
74¢ 0 : OUT OF N IN , 
: XHAUSTED WITHOUT FINDING A VALID SEQUEN 
ee ; : Uy THE ENTIRE Range Ts Ext BACK TO THE ORIGINALLY REQUESTED SEO RESS 
ee 4 § 3 AND SHOW THE USER THE CRAP. 
10 04 AE bt ac , 5° cMPL 4(5P) #16 ; Is THE PR PRE-SCAN WORTH IT? 
2E 00000110'EF 38 EO 07 $ 7 5 BBS #OPTSy -NOSKIP OPTIONS. 1588 ALLow USER TO OVERRIDE PRE-SCAN 
itt FB Eh 788 152$: CALLS #0,TRY SEQUENCE ; E NEXT N INSTRUCT 
C ( E8 $76) 789 BLBS RO, 548 3 soe yd ARE” REASONABLE 
63 D6 0764 790 INCL (R38) ; eu 
55 63 D1 0766 = 791 CMPL =—s (3) , RS : END OF RANGE? eX 
+ LOOP IF NOT 
63 bE D0 Ore 138 Rove (36) (RS) : RESET ''.'’ TO ORIGINAL ADDRESS ral 
1 11 07 79% R FA 
: - : R OF BYTES SKIPPED 
a $§ & a7 3 _— suet 14° wat SLIP  RESSAGE IF NOTHING SKIPPED FA 
0776 oF SIGNAL 1,INSKIPPED : INFORM NUMBER OF BYTES SKIPPED Fal 
O78 199 SHOW THE RANGE OF INSTRUCTIONS, UPDATING "’."' ON EACH INSTRUCTION at 
: RECURSIVELY SHOW, NEXT DATA ITEM GE’ 
rm ce Ee oe mes tas eagerness mo ee 
Fe =1F «0790 88 BLSSu.-155$ : OOP UN re DONE Ge 
50 DO 079¢ 04 MOVL 1,R0 > SU CceESS GE 
04 0795 05 RET ry 
184 09 .DSABL LSB HE! 
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v04=0 INSTR_VALUE, SYMBOLIZE ADDRESS INTO BUFF §-§ -SEP=1 1382 8}: $f: $3 YEDA SRCICOMMANDS MAR; 1 ° di) 
? i .SBTTL INSTR_VALUE, SYMBOLIZE ADDRESS INTO BUFFER 
7 B11: 
? af : OUTPUT A STRING DESCRIBING AN ADDRESS. THE ADDRESS IS CONVERTED 
29 B13: TO A "'REAL'’ ADDRESS BY COMPUTING THE OFFSET FROM THE INSTRUCTION 
796 «B14: BUFFER. THEN THE SYMBOL TABLE IS SEARCHED FOR THE CLOSEST SYMBOL. 
796 B13 : IF NOT FOUND IN THE SYMBOL TABLE, A LONGWORD HEX STRING IS WRITTEN. 
736 1? : INPUTS: 
796 +E : 4(AP) = ADDRESS OF LONGWORD CONTAINING ADDRESS 
29 0 ; BAP) = ADDRESS OF RESULT BUFFER DESCRIPTOR 
? B01 : 2(AP) = ADDRESS OF WORD TO RECEIVE RESULT LENGT 
29 5 ; ; 16(AP) = ADDRESS OF FLAG: 1 IF ABSOLUTE ADDRESS, 0 IF RELATIVE ADDRESS 
796 : 4 : OUTPUTS: 
196 6 : THE STRING IS WRITTEN INTO THE RESULT BUFFER. 
0796 828° 
796 829 XL_STRING: 
4C 58 21 0000079E'010E0000" 796 : SASCID "!XL" 
O7Al ; ¢ INSTR_VALUE ; SYMBOLIZE INSTRUCTION VALUE 
000¢ Oral 833 SWORD © *M<R2,R3> 
5 04 BC DO OrA3 B35 MOVL  @4(AP),R2 : GET VALUE (ARGUMENT BY REFERENCE) 
53 O08 AC «(#0 (O7A7” Cf 6 VL —- BCAP) ,R3 : GET ADDRESS OF DESCRIPTOR 
1110 BC £8 7ABCé BLBS al6(AP),5$ : BRANCH IF ABSOLUTE ADDR 
50 00000900" EF 7AF «838 MOVAB BUFFER,RO : ADDRESS OF INSTRUCTION BUFFER 
5 0 cs 786 «= «839 SUBL _—RO, : GET T FROM INSTRUCT 
52. 00000140'EF CO 0789 840 ADDL ADDRESS, R2 : TE "'REAL'’ ADDRES 
DD O7CO 841 5$ PUSHL R : ADDRESS OF RESULT BUFFER 
DD O7C B43 PUSHL R ; 0 BE CONVERTED 
00000000'EF 02 FB 0704 84 CALLS #2,SYMBOLIZE > CONVERT TO SYMBOL+OFFSET 
6 03 7(B B44 TSTL = CRI) : ANYTHING RETURNED IN BUFFER? 
08 13 O7CD 845 BEQL =-:10$ + BRANCH IF NOT 
0c a 61 80 7CF B46 MOV)  (R1),@12CAP) : RETURN LENGTH TO CALLER 
6 01 b0 205 4 MOVL #i,r6 
SE C2 oS 1h: 10$:  SUBL #2,SP ; ADDRESS TO RETURN FAO LENGTH 
5 DD O7DA 830 PUSHL R : ABSOLUTE VALUE 
DD O7DC 851 PUSHL R ; ADDRESS OF RESULT BUFFER 
08 AE OF 07D 83 PUSHAL 8(SP) : ADDRESS OF WOR? TO RECEIVE LENGTH 
B2 AF OF O7E1. & PUSHAB XL_STRING + ADDRESS OF FAO CONTROL STRING 
00000000'GF 04 FB O7E4 854 CALLS  #47G*SYSSFAO : CONVERT INTO BUFFER 
0c a BF 60 7€B B35 MOVW (SP)+,a12(AP) : RETURN LENGTH TO CALLER 
v0 ver 856 ROVE #1,,R0 : SUCCESS 
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youn000 TRY_SEQUENCE, DETERMINE IF INSTRUCTIONS §-§ -SEP-1984 83:94:38 SDA. SRCJCOMMANDS.MAR; 1 wed (i) 
zr 5 .SBTTL TRY_SEQUENCE, DETERMINE IF INSTRUCTIONS VALID 
7F : 
7F 4 : SCAN THE CURRENT INSTRUCTION STREAM LOOKING FOR N. INSTRUCTIONS IN 
zr s ; A-ROW WHICH "MAKE SENSE", ACCORDING TO A LIST OF “NORMAL INSTRUCTIONS. 
zr 65 + INPUTS: 
di 8 : ADDRESS = "'REAL'’ ADDRESS OF INSTRUCTION STREAM 
zr € : OUTPUTS: 
di ; : RO = TRUE IF STREAM REASONABLE, ELSE FALSE 
7F 73° 
7F 74 TRY_SEQUENCE: 
0038 zr 03 <WORD “M<R3,R4,R5> 
55 Q0000000'EF 9E O7F 8 MOVAB BUFFER, RS : GET ADDRESS OF INSTRUCTION BUFFER 
53 00009140" EF D zr 28 MOVL ADDRESS, R3 + GET CURRENT "'."" 
54 (O04SCO 0 7 MOVL R : INITIALIZE LOOP COUNT 
: 0 10$ TRYMEM {R$ (RS) #64 : GET MAXIMUM LENGTH OF INSTRUCTION 
28 50 9 081 1 BLBC 96$ : IF NOT AVAILABLE 
50 6 A BIA é MOVZBL (R5),RO ; PICK UP OPCODE 
21 0000°¢0 E9 081 LBC  NORMAL_INSTRS(RO),80$ : BRANCH IF UNREASONABLE INSTRUCTION 
3 D 8 PUSHL : ADDRESS OF INSTRUCTION STREAM 
— 7 5 CLRQ. =(SP) : NO SYMBOLIZE ROUTINE OR RETLEN 
SE DD 08 6 : PUSH P ; ADDRESS OF NULL BUFFER DESCRIPTOR 
OC AE DF 08 PUSHAL 12(SP) : ADDRESS OF INSTRUCTION STREAM POINTER 
00000000 ' GF 04 FB O08 88 CALLS #4,G*LIBSINS_DECODE + DECODE INSTRUCT ON 
0 € 8 BLBC R t IF ERROR, RETURN UNREASONABLE 
50 8 33 C 90 SUBL3 R3.(SP)+, ,RO 3 CALCULATE LENGTH 0 INSTRUCTION 
5 0 ¢O 0839 891 ADDL : AND POINT OvNERT INSTRUCTION 
A) oe 8 C 3 SOBGTR or Rbs > TRY NEXT INSTR UCTION 
50. 01 0 Hi 93 ae ROVL wR RO : RETURN SEQUENCE IS REASONABLE 
Beg 95 B0S: CLRL = RO ; RETURN SEQUENCE UNREASONABLE 
04 0845 896 RET 


H § 
vO6-000" ai eae ane SPECIFIED PROCESS 'S-SEP=1986 08:81:58 ESbArsRCICOMMANDS-nan;1 = "8" (73) 


4 8 .SBTTL SET_PROCESS -- SELECT SPECIFIED PROCESS 
. - 
4 ? : SET_PROCESS 
4 i ; SETUP FOR DISPLAY OF A SPECIFIED PROCESS 
4 905 ; INPUTS: 
4 ; $ : OPTIONS = OPTIONS MASK (ONLY SYSPROC IS CHECKED) 
4 : PROC_NAME = PROCESS NAME 
4 30 PROC-INDEX = PROCESS INDEX (MUTALLY EXCLUSIVE) 
46 gi) : OUTPUTS: 
4 318 : PROC_PID = PROCESS PID (0 IF CURRENT PROCESS) 
Sf 3i3 ; BADPROC IF NOT FOUND 
sie 316 ; ALL ERRORS ARE SIGNALLED IMMEDIATELY 
nh oe 
O1FC ase 920 -ENTRY SET PROCESS, - 
84 4 M<R2,R3,R4,R5,R6,R7,RB> 
4 923 ; 
if ? é 3 IF /SYSTEM SPECIFIED, SET TO "SYSTEM PROCESS"’ 
10 00000110° EF 06 E1 bbe 9 : P BBC #OPTSV_SYSPROC,OPTIONS,10$_; BRANCH LF NOT SPECIFIED 
ce 0850 9 MNEGL #1,R8 : Set TO <1 (SYSTEM) 
00000000' EF 00000800" ff o¢ 085 3 8 5$: MOVL QMHGSAL_SVSPCB, PCBADR : SET SYSTEM PCB ADDRESS 
086 930 ; 
086 931 : IF PROCESS INDEX GIVEN, OBTAIN PCB ADDRESS FROM VECTOR 
BS BR fos 
00000118'EF D5 9860 934 TSTL PROC_NAME ; WAS NAME SPECIFIED 
5B 412 0866 935 BNEQ o$ ~ 3 BRAN CH IF uid 
O8e8 9 6 REQMEM @SCHSGL_MAXPIX > MAXIMUM I NUMBER 
58 00000130'EF 32 8 9 CVTWL PROC_INDEX,R : CHECK IF MOVSTENE PROCESS 
s1 88 oot OBTE 989 Pha a8 nt C PRPEK IE 1a RANGE 
5 1A 0881 940 BGTRU + ERROR IF BAD INDEX 
0 Bs 941 REQMEM Hite anes : VECTOR OF PCB ADDRESSES 
51 6148 ODE 4g MOVAL (R1)CR 1, > ADDRESS OF POINTER TO PCB 
34 943 sa REQMEM (R1) : STORE ADDRESS OF PCB 
Gateye Ad 945 ‘ REQHER spcanon, -PCB,#PCBSC_LENGTH ; GET ENTIRE PCB 
C 309 40$: 
0OF8 31 c 48 BRW 80$ : FAILURE 
C r : LOOKUP SPECIFIED NAME IN ALL PCBS 
¢ Sos: 
C 354 REQMEM a@SCHS$GL_PCBVEC : VECTOR OF PCB ADDRESSES 
56 51 DO 08D0 954 MOVL R1.R6 > SAVE ADDRESS OF VECTOR 


ast ] 
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youeO00 SET_PROCESS <= Seubert SPECIFIED PROCESS $73 ety 83:49:83 EEDA SRCICOMMANDS MAR: 1 . (34) Tal 
D 5 REQMEM @SCHEGL_MAXPIX ; MAXIMUM PROCESS INDEX | 
57 51 dO OBE § MOVL RI,R ; SAVE NUMBER OF SLOTS 
8 OM : a CLRL—saRB ; INITIALIZE CURRENT INDEX 
51 6648 dE OBE § "OVAL (RO) CRB) R1 ; ADDRESS OF POINTER TO PCB | 
E 60 REQMEM (R1),PCBADR : GET ADDRESS OF PCB | 
F REQMEM @PCBADR,PCB,#PCBSC_LENGTH ; READ ENTIRE PCB 
50 QOO7O"EF 9A 0912 9% mOVZBL PCBs PCBsT LNAME -R j GET LENGTH OF NAME 
20 Petes 2 0319 = 9% CMPCS RO, PCB+PCBST_LNAME+1,#*A’ *, = 
1IC'FF 926 964 PROC_NAME ,@PROC_NAME+4 ; CHECK IF CORRECT PROCESS 
, 13 0928 ? 5 BEQL = 7 + BRANCH IF YES 
B4 58 F3 090 é AOBLEQ R7,R8,60$ : LOOP UNTIL FOUND 
0087 3 3 } 3 end BRW 80$ > FAILURE 
OO00118'EF 7C 0934 369 "- CLRQ ss PROC_NAME ; CLEAR SO WE DON'T RE-SEARCH 
51 Cer DO 093A 970 MOVL PCB+PCBSL_PHD,R1 + ADDRESS OF PROCESS HEADER 
13 09 971 BEQL 7 + BRANCH IF NOT RESIDENT 
9 976 REQMEM (R1),PHD,#PHDSC_LENGTH : READ ENTIRE PH 
00000000' EF Cer 00 9 97 VL  PCB+PCBSL_PHD,PADADR =: SAVE PHD ADDRESS 
00000000 ' EF CB'EF 10 974 VC  #16,PHD+PADSL POBR,POBR : GET RELOCATION REGISTERS 
1, EF 09 975 EXTZV #PHOSV_POLR,#PHDSS_POLR,POLR,POLR 
tf 11 976 BRB 79$ 
‘EF ps 77 75$:  CLRL.  PHDADR : SET PHD NOT RESIDENT 
10 aes 0 C 978 MOVES  #0,(SP),#0,#16,POBR : ZERO RELOCATION REGISTERS 
00000130'EF 58 00 9 MOVL RB, PROC_INDEX ; SAVE PROCESS INDEX 
00000138 'EF 00000060"EF DO ; MOVL PCB+PCBSL_PID.PROC_PID : SAVE PROCESS PID 
9 ZERO THE PROC_PID IF THE PROCESS IS THE CURRENT PROCESS. 
3 THIS AVOIDS UNNECESSARY OVERHEAD ON THE RUNNING SYSTEM DISPLAYS. 
00000138'EF  0000013C'EF Dt 3 cmPL CURRENT_PID,PROC_PID ; Is proc pip SAME AS CUR. PROCESS? 
00000138'EF D4 9 CLRL — PROC_PID : IF SO, ZERO PROC_PID FOR QAST 
9 STATUS SUCCESS 
04 9 RET 
00000118°EF  7C 99 CLR@  PROC_NAME : CLEAR BAD PROCESS NAME 
* 99 SIGNAL 0, BADPROC : NO SUCH PROCESS 
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vary CURPROC == SET RELOCATION TO CURRENT PRO g- SEp- 1382 84:94:33 EEDA SRCICOMMANDS MAR; 1 . (day vO« 
904 95 «SBTTL CURPROC == SET RELOCATION TO CURRENT PROCESS 
904 39 : 
1 ¢ 38 ; CURPROC 
904 1 9 : THIS ROUTINE SETS UP THE RELOCATION REGISTERS TO 
904 1 ; REFER TO THE PROCESS EXECUTING WHEN THE SYSTEM 
904 1 : ; CRASHED. 
904 1 ; 
ss ¥ ! : : INPUTS: 
ot aes 
904 1 : : OUTPUTS: 
904 1 : 
904 10 ; POBR-PILR ARE SETUP FOR ‘CRASH’ PROCESS 
904 1012 :-=- 
904 1 i§ 
904 1014 CURPROC:: 
003¢ 904 15 .WORD “M<R2,R3,R4,R5> 
3 7 GETHEN @SCHSGL_CURPCB : ADDRESS OF CURRENT PCB 
9 QOOO'EF 51 00 O9E7 1 i§ MOV "ay gPcBA R ; SAVE ADDRESS OF PCB 
00000000'EF 9E O09E 10 0 MOVA ADDRESS OF OWN PCB 
HF 1 GETAER Laece tk ),#PCBSC_LENGTH : READ ENTIRE PCB 
00000130"EF 60 A3 32 OAOA 18 : CVTWL *ecBSL. PID(R »PROC_INDEX ; SAVE PROCESS INDEX 
Al2 1026; MOVL  PCBSL~PID(R3) .PROC-PID C D 
0000013¢ 60,43 A300 OAl2 1025 MOVL PCBSL~PID(R3) . CURRENT Pub — PID OF CURRENT PROCESS 
secogoeet tot" D4 OAIA 1 ‘ CLRL PROC PID 4%, NOT SWITCH CONTEXT IN GETMEM 
6c AS DO OA 0 1 MOVL  PCBSC_PHD(R3),PHDADR =; SAVE PHD ADDRESS 
or oy 9€ OA28 10 3 MOVAB L“PHDTR DRESS OF OWN PHD 
gE ; Rerienne coe PHD(R3), (R4) pine 8 _LENGTH ; READ ENTIRE PHD 
00000000'EF 00C8 C4 10 28 OA4S 1031 Ove #16 cuss POBR(R4),POBR ; GET POBR - PILR 
90000000" EF 18 99 EF Ase 1032 ExYeV #PHOSV_POCR, #PHD$S.POLR, BOLR,POLR ; ELIM. ASTLVL 
Ab 10 3 GETHEN gi ScHscL. MAXPIX : GET MAXIMUM PROCESS INDEX 
1F pO OA6D 1035 MOVL  #31,R0 ; START AT HIGH BIT 
0351 50 €0 OA70 1 6 10$: BBS RO. Ri g's : FIND THE HIGHEST SET BIT 
F9 50S FSs«(OA74 SOBGTR hos : WE KNOW WE WILL FIND ONE 
00000134"eEF SO 01 Ci OA77 1 : 11$:  ADDL3 ie *RO,PIX_WIDTH t BIT ''N'' SET MEANS THAT PIX WIDTH FOR 
med Are 1059 il : EXTENDED PID IS "N+1'' BITS 


04-000 


00000118'EF 


5 


PARSE AND EXECUTE SDA COMMANDS 


SHOU.PROCESS <= DISPLAY SPECIFIED PROCES SaseP=19Re 94.91.58 


4C 4C 41 

003¢ 

20 F7 AF O3 2D 
0000011C'FF 

08 12 

00000000'EF 00 FB 

04 

FDAS CF 98 FB 

» ty 

QOO0O000"EF 00 FB 

04 


>>>r>rrrrrrrrrrrrrr,r>r>r>r>r 


es i 2 8 a 2 as 2s a ss a a 


Ooooooocoecoeo 


= 


eur 


PDA OAASMMIMNMNNNNIIN SF PLL EE 


SNNNNOOO 


LS 


ewn—O0e 


OW FW OOONOUNE A -" OOONOM 


-SBTTL SHOW PROCESS -- DISPLAY SPECIFIED PROCESS 


SHOW PROCESS 


INPUTS: 


NONE 


LL: eASCIT "ALL" 


: OUTPUTS: 

A 

SHOW_PROCESS: : 
WORD 


“M<R2,R3,R4,R5> 


BNEQ 10$ 
a #0,DISPLAY_PROCS 


10$: 
CALLS #0. SE1_PROCESS 
BLBC *90$ 
ve CALLS #0. DISPLAY_PROCESS 
" «STATUS SUCCESS 
RET 


DISPLAY SELECTED FIELDS FROM A SPECIFIED PROCESS 


PROC_NAME OR PROC_INDEX CONTAINS WHICH PROCESS 


CMPCS #3,ALL,#*A' *,PROC_NAME ,@PROC_NAME+4 


; BRANCH IF NOT ALL 
; DISPLAY ALL PROCESSES 


; SETUP TO READ PROCESS 
RROR 


; BRANCH IF E 


: DISPLAY INFORMATION 


AX/VMS _M 4- CR 
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~SBTTL DISPLAY_HELP == DISPLAY HELP INFORMATION 


DISPLAY_HELP 


DISPLAY PORTIONS OF THE HELP FILE BASED ON THE TYPE 
OF INFORMATION REQUESTED IN THE HELP COMMAND. 


INPUTS: 
AP POINTS TO THE TPARSE BLOCK 

OUTPUTS: 
NONE 
-ENABL LSB 

DISPLAY_HELP:: 

- WORD 
MOVAL HELPHAND (FP) sEstablish Condition Handler 
PUSHAL G4 L1Bscet INPUT tAddress of input routine 
PUSHAL HELP WFLA Ast :Library search & Prompt options 
PUSHAQ HELP-LIBRA Address of rere name descriptor 
PUSHAL TPASCS TORENCNT (AP) iAddress of input line descriptor 
PUSHL 4&0 Text Line width -- Defaulted 
PUSHAL G*LIBSPUT_OUTPUT saaeress of output routine 
CALLS #6,G*LBRSOUTPUT_HELP iDoes the obvious... 
ntl RO. 10$ : Any problems? 
CALLS #1,G*LIBSSIGNAL “Send it to the condition handler 
STATUS SUCCESS SAlt’s well that ends veil... 


-DSABL LSB 
Condition Handler for Display_Help. 


~-ENABL LSB 


HELPHAND: 


PRO ODNAMNE WN OOD NAUE WIN @ OOO NAN E WN OOD NA NEW OS ODN UE WH OOO 


WAAR PNIPINININIININII 4 @ = = SOOO OOODOO0CO 00090 


-WORD “M<> 
MOVL 4(AP) ,RO :Get address of Signal Array 


Check to see if this is a sevens or FATAL exception.. 
if it is, then CHANGE the gover ty to ERROR and resignal the 
sunntetah, else, just resignal the condition. 


CMPZV eststy. SEVERITY,- Position of Severity Field 
es T38, SEVERITY,- :Size of the Severity Field 
Fst SIG) NAME ( (RO),-  :Base address of comparison field 
#518 R_S iTest value 
BNEQ sits not a FATAL severity. 


SDA.SRCIJCOMMANDS .MAR; 1 
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If we ere here, then we do have a FATAL severity gode in our 
condition value, sooo... we must CHANGE the severity to ERROR. 


roe if 


INSV #STSS$K_ERROR,=- iThe desired severity code. 
#STS$V~SEVERITY,- :Position of Severity Field 
#STS$S_SEVERITY,= Size of the Severity Field 
CHF SL_S1G_NAME (RO) :Base address of Signal Name 

poyeue #SS$_RESIGNAL ,RO Send condition to HANDLER. 

-DSABL LSB 


vO 
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42 54 53 2E 
00000004 
003¢ 
50 Q0000128'°EF 9 
26 QOOOO000'EF  9E 
5 QOO00000"EF 9 
A 60 3 
2c ae 04 A0 OD 
35 A 06 9 
30 A2 DS AF OE 
950 €8 
CA DD 
7E 4A 9A 
7 #3 7D 
00 FO 
6— 03 00 
O8 AE OF 
50 00031098 8F 00 
5A 
QOO000000"EF 00 FB 
00006000’ EF 98 F 
43 E 
8 Al 0D 
A Al F 
43 09 Al A 
00000000' EF o FB 
E 11 
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PARSE AND EXECUTE SDA COMMANDS 
READ_SYMFILE, Read symbols from a fi 


w 
Sead 
ee 


10$: 


ee ee ee ee ee ee me ee ee ee a a ee dd ad 
~o 
So 
bad 
o 


NIN IN a et et st et ss 2 ss a ss 2 se ss a ss a ss a ss a ss a 
SDOOCOOOOO OOOO O00 0000 0009 09 09 09 09 09 SINISE NS NPA AAA AA AAA IIIT TUTUIU 
MRO OONO NEW "OOO NOAUES WN 0 OONAU EWN (OOOO EWR OOONOAUE WO OO~nO 


sym_def_ lon = 


"SISEP=1986 03:89:38 ESDAVSRCTCOMMANDS MAR; 1 


-SBTTL READ _SYMFILE, Read symbols from given file 


READ_SYMFILE 


This connend can be executed to add symbol definitions 
to the work 09 symbol table By eect ng object modules 


containing Gs? entries and defining all symbols found. 


Inputs: 


FILE_DESC = Descriptor of file specification 


Outputs: 


The symbols are added to the symbol table. 


sym_default: 


ascii '.STB' 
-~sym_default 


read symfile,- 
m<r2, 4 r4,r5> 


movab file_desc,r0 
movab stbt ere 
movab 


entry 


Address of file descriptor 
. = Address of FAB 
= Address of RAB 


cvtwb tr0s. fab$b_fns(r2) : t file name length 
mov | 4(r05,¢ fabs $T_fna(r2) t file name address 
movb a def_len, fab$b_dns( uh : Set default length 
movab sym default, fab$l_dna(r2) Set default address 
Sppen (rey : Attempt t to ppen the file 

r0,5$ fhe 
pushl fab$l_fna(r2) ; Create A ae of file name 
movzbl fab$b_ ia ),~-(sp) 


: RMS error codes 
ange severity to warning 


movq r0,-(Sp) _ 
Asts$s _sever ity, (8p ) 


insv #sts$k cree 
#sts$v_severity, 


pushab 8(sp 3 ress 4 file name descriptor 
movl ashes _openin!<3a16>,r0 ; ‘Error opening input file tas 
pignat 1 3 sr gnes with 1 FAO argument 
r 95$ 3 t with success 
connect. ar} 3 toanest for record access 
signal (r3) 3; Report any errors 
calls a0. rewind_ stb 3 Rewind the file 
calls Ht 98t- symbol 5 get nent syahet in file 
blbc ; Branch if end of file 
pushl obj$l_sym_value(r1) 3; Value of ix 
pushal obj$t_sym_name+1(r1) 3; Address of symbol 
movzbl 9 $t"sym_name(r1),-(sp); Length of symbol 
calls : #3 ada symbol 3 Add to Syabel table 
r 


$close (r2) 3; Close the file 


B 6 
vO4-000" READ-SYMPILE, Read symbols trom given fi S-SEP-196¢ 04:91:58 ESDALSRCICORMANDS MaR;1 29" #9, ve 


A 1203 signal RMS,(r2) ; Signal any errors 
AN 1204 958: Status success 
04 D3 1205 ret 
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SEARCH _MEMORY -SEP-1 SDA.SRCJCOMMANDS.MAR; 1 (18) 
144 ] o8 _ esbttl SEARCH MEMORY 
4 1 { ; search memory for the longword pattern 
BD4 : Inputs: 
BD4 1 18 : expr_stack --> patt 
BD4 1214 ; end_ addr or length 
+41 } 1? : start_addr 
BD4 1 i : Outputs: 
BD4 1 18 Z 
4 : Hs : None 
BD} Wy -enabl sb 
O1CC dg ! entry search_memory,*M<r2,r3,r6,r7,r8> 
QOOOO110"EF DO OBD6 1225 movl options, r2 ; Get options 
3g em O4O0'EF DO OBDD 1 § movl rede r 3 point to euareenton stack 
28 08 ‘a DO OBES 1 mov l 8(r5), r6 : rg --> start addr 
5 04 A dO tere 1228 mov 4(r3), 7 3; r7? ==> end addr or length 
03 3$ 03 €0 EC 1229 bbs #optsy_ range, r2, 10$ ; br if range option 
5 28 co pore 1230 addl 3; add start addr to Length 
58 6 dO per? : 1 10$: mov | eg)" r8 ; 78 --> value to search for 
fore ! $ ; Search from (r6) to (r7) for r8 
58 DD Oat 1235 ° usht 8 
ebb oes | é Sushi rt 
56 DD OBFA 1 pushl fr6 
pert } $ 208 print 3,<Searching from !XL to !XL for !XL...> 
57 56 D1 OCO9 1240 cmpl 6, r7 : check for end of search 
op oO 1241 botru 40$ 3; GTR if range searched 
343 1 4g sfyeen (r6) 3 get contents of location 
1450 €9 OC17 124 r0, 308 ; if not an address 
51 58 D1 OCIA 1244 cmpl r8, ri ; does this location match? 
OF 12 c1D 43 bneq o$ : Br if not 
3 : ¢? : Here with a match 
56 DD OCIF 1 rk : pushl r6 : push address of match 
C21 1 0 print 1,<Match at !XL> 3 print it out 
56 04 cO OC ; 1251 30$: addl #, 6 : = on a longword 
D611 c i me brb 208 : ook at the next 
50 01 »DO0 OC i 1254 ; movl #i, r0 ; O.K. status 
04 : $ ! 55 ret : 
C37 (1 2$ -dsabl lsb 


dD 6 
04-000 Seth tenn: ne ata "SrSEP=198¢ 05:89:58 ESDaLSAcIcOmmanDs-nan;1 = "29° (#8, 


: q ! 59 ; -sbttl ECHO 
: 4 } i 3 ECHO Last command 
: 4 ! o7 ; Inputs: 
C37 1265: Re - RAB address 
C37 1 66 : R3 = TPARSE BLOCK 
C37 1267 ; 
E35 155° 
C37 (1 79 ECHO: 
54 3C 3 50 ; 4 i ; ADVI’ PR iBs FAB(R2) ,R4 : ie ADDRESS OF FAB 
’ Py = 
- p08 Ae £28 i is 1, aDEVsT TAM, 208 BRANCH IF NOT TERMINAL 
00000000" EF 8 C46 (1275 TSTW TT CHAN ; + CHANNEL ASSIGNED? 
4 coc f BEQL 
00000000 ' 8F E1 Orce 1278 BBC #TT$V_SCOPE,- 
29 00000000'EF OCa4 4 DVI_DEVDEPEND ,20$ : IGNORE IF NOT SCOPE 
OCSA 1 81 $Q10W_S CHAN=TT_CHAN,- 
OCSA 1 é FUNC=#10$_WRITEVBLK,- 
OCSA 128 Pi=aTPASL STRINGPTR(R3) ,- 
CSA 1 84 Pes TPAst STRINGENT (RS) ,- 
cas | FA 206: P4=#*x00880000 3 BACKSPACE FIRST! 
54 8EDO OC83 1287 + #POPL = R4 ; RESTORE 
05 086 1288 RSB 
0C87 1289 
0C87 1290 END 
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$$. TMP) 
$$. TMP2 
$$T1 


i 
ADDRESS 
ADD_SYMBOL 
ALL 


BUFFER 
CHFSL_S1G_NAME 
CURPROC 
CURRENT _PID 
DATALEN 

DEF INE_ SYMBOL 
DEVSV_TRM 
DISPLAY HELP 
DISPLAY “PROCESS 
DISPLAY “PROCS 
OVI TBEVCHAR 
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HELP. FLAGS 
HELPS LIBRARY 


GROUP 
HLPSA PROCESS 
HLPSM” SYSTEM 
INDIRECT COMMAND 
INDRAB 
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OUTPUT_FILE 
POBR 
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pCBA ADR 
PHDSC_ ci 


PHDS$V"POLR 
PHDADR 


SEP=1 


dee 05:84: 


COooooooooooooooooooo 


$3 AX/VMS Macro V04-00 
5 SDA.SRCIJCOMMANDS .MAR; 1 


geaereeee 
geeeeree 
eeetenee 
geeeeenre 
geeeeeee 
geeeeene 


000005 


genreeres 
Reeeeene 
geeeenree 
Reeaeeere 
eeeereee 
Reeeeree 
Reeeeeee 
ReEeeeeee 
geeereee 
RARRREREE 
Reeeeeae 


COOoOooooooooooooooooooo 
[OOOO OOOOOOO@S FO NO "SOS 


SONNOWO OOF NDODOOC0OO™" Oo 


SoOOoooOoCoOoOooooooooooooo 
Ps) 
i>) 


OOoOQoooooooooooooooocoooo 


Reaeeeene 
Reeeeeee 
RERRREEE 
Reeereee 


ae 


a 


geeerenee 


< OE OK 


>< OK OK OK OK OK OK OK OE OE OK 


Pp 3 CRA 
seat 13 v04 


. © 
COMMANDS PARSE AND EXECUTE SDA COMMANDS i ot teh 9 04:99:32 yan Macro V04-00 Page 34 


Symbol table SDA.SRCJCOMMANDS .MAR; 1 (19) 
PIX WIDTH 00000134 RG SYSSFAO rererene x 
PRINT eeeeeree x SYSSGET aeeeenee § GX 
PRINT_SYMBOLS keeeeree X SYSSGETMSG wereeeee CX 
PROC_INDEX 130 RG SYSSOPEN eaneeeee GX 
PROC _NAME 1 RG SYSSPUT eeeeneee GX 
PROC PID 1 RG SYSSQI10W eeeaeeee GX 
PROMPT 1 R TPASK_COUNTO = 00008 
PROMPT _LEN = TPASL_NUMBER = if 
RABSL_FAB = § TPASL_STRINGCNT = 8 
RABSL_RBF = TPASL_STRINGPTR = § 
RABSL_STV = C TPASL_TOKENCNT = 1 
$L_UBF = 4 TPASL_TOKENPTR = 14 
RABSW_RSZ = 3 TPASM_ABBREV = 02 
$W_USZ = 00000 TPARSE_BLOCK 000001C R 0s 
AD_SYMFILE 0000814 RG 3 TRYMEM reeteene x 
RELOCATE _BASE 0000114 RG TRY_ SEQUENCE 000007F3 R 3 
T_ COMMAND reetkene K TT$9_SCO rerkeeee X 03 
RE 4 teeteree x TT2$0_EDITING renters x 03 
REWIND STB teekeene X 83 TT_CHAN eeeteene x 03 
RMS$_EOF rekteeee x 0 XL_STRING 00000796 R 03 
Save .C ekeeeeee x 03 
SCH _CURPCB rereeeee x 8 
SCHSGL_MAXP1X teenrnee x 3 
SCHSGL_PCBVEC rekereee x 03 
SDA_KEY eeeeeeee 8 3 
SDA_STATE rerereee x ; 
SEARCH_MEMORY 00000BD4 RG 0 
SET_HEADING reekeeee x 03 
SET PROCESS 00000846 RG 03 
S XPR 0000047C RG 83 
eeereeee 0 
SHOW" P1 eeeeeeee KX 0 
SHOW_PROCESS 00000A83 RG 8 
S _>YMBOL 000003F3 RG " 
SHOW SYSTEM rereeere x 0 
SHRS$_OPENIN 2 0000188 
SHRS_SYNTAX = 000010F 
SMGS_EOF etereeee KX 03 
SS$_RESIGNAL = 00000918 
STB RRR EER ra 03 
STBF eeeereee xX 
STRSUPCASE eerereeee x 0 
STSSK_ERROR = 0 : 
STSSK_SEVERE = 
STSSK_WARNIN = 
STS$S_SEVERITY = 
STS$V_SEVERITY = 0 
SUB_HEADING eeeeeree x 
SYMBOL 1ZE 70000148 x 
SYMBOL _DESC 48 RG 
S YRBOL ~NARE So0bb1e8 Re 
SYMBOL _VALUE rereeere x 
SYM_DEFAULT ts R 
SYM_DEF_LEN = 04 
SYSSASCTIM eeeeenee GX 
SYSSCLOSE eeeeeeee GX 
SYSSCONNECT eeeeneee GX 


G 
COMMANDS PARSE AND EXECUTE SDA COMMANDS 16-SEP-1984 1:22:45 VAX/VMS Macro Vv04-00 Pa 5 
Psect synopsis eet 83:99:63 EDA SRCICOMMANDS MAR: 1 - 33) 


bec en ower eee een ae > 


! Psect synopsis ! 


tone em ee See tecen an} 


PSECT name Allocation PSECT No. Attributes 
. aes . 6° ( -» 00 ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS ( ot 1 ¢ -) NOPIC USR CON ABS LCL NOSH x RD WRT NOVEC BYTE 
SDADATA 1A5— ( $¢ S| ¢ ( §° NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC BYTE 
COMMANDS 4 ( 3§ 7.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
LITERALS 0000109 <¢ 65.) 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
twee nonesraneeeee ene aen esse + 
: Performance indicators ! 
Phase Page faults CPU Tim Elapsed Time 
Initialization 3 00:00: “93 0: 0:0) 02 
Command processing 153 8: 7:00.59 3: :04. ¢ 
Pass 528 :00: 8 : Berg 
Symbol table sort 0:00:01. 0:00:08. § 
Pass 2 23 0: 3.3 3: 0:13.1 
Symbol table output 2 8: 700.14 :00:00.45 
Psect synopsis output :00:00. ‘ 0:00: 8 
Cross-reference output 3: :00. 0:00:00. 
Assembler run totals 97 :00:19.94 0:01:15.8 


The vorking set Limit was 2250 pages. 
124778 bytes (244 pages) of virtual memory were used to buffer the intermediate code 
There were 100 pages of symbol table space allocated to hold 1844 non-local and 112 
1290 source Lines were read in Pass 1, produc ing 42 object records in Pass 2. 

pages of virtual memory were used to define 48 macros. 


local symbols. 


a - 
! Macro Library statistics ! 
+ - 


See ant eH eee eee eee wee eoesaee st 


Macro Library name Macros defined 
3 S5$DUA : $DA.0BJISDALIB-MLB; 1 13 
_$255$0U : ayer ORY LIB.MLB; g 
$255$0UA28:(SYSLIBISTARLET.ALB;2 : 
TOTALS ‘all libraries) 4 


2088 GETS were required to define 44 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:COMMANDS/0BJ=0BJ$: COMMANDS MSRC$: COMMANDS/UPDATE=(ENHS: COMMANDS) +EXECML$/L1B+L1IB$:SDALIB/LIB 
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